(COMMENT BPS 15000. LIST 10000 SPECPDL 1000.)

(PROGN

(FASLOAD DEMON FAS DSK (AID RPG))
(HELP)
;(ESCI-ENB)
;(REQUIRE UTIL > DSK (AID RPG))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
 T)